home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
tables
/
picmask.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1999-08-23
|
24KB
|
639 lines
VERSION 5.00
Begin VB.Form frmPicMask
BorderStyle = 1 'Fixed Single
Caption = "Mask, transparency and raster operations"
ClientHeight = 5595
ClientLeft = 45
ClientTop = 330
ClientWidth = 6645
Icon = "picmask.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 373
ScaleMode = 3 'Pixel
ScaleWidth = 443
Begin VB.CommandButton cmdClear
Caption = "Clear"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3300
TabIndex = 19
ToolTipText = "Use only one API, via reverse masked foreground"
Top = 4830
Width = 1020
End
Begin VB.CommandButton cmdExit
Caption = "Exit"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4350
TabIndex = 18
Top = 4830
Width = 1020
End
Begin VB.PictureBox picTransparent
AutoRedraw = -1 'True
Height = 1575
Left = 4650
ScaleHeight = 101
ScaleMode = 3 'Pixel
ScaleWidth = 102
TabIndex = 17
Top = 2910
Width = 1590
End
Begin VB.PictureBox picFgd
AutoRedraw = -1 'True
Height = 1545
Left = 2490
Picture = "picmask.frx":030A
ScaleHeight = 99
ScaleMode = 3 'Pixel
ScaleWidth = 102
TabIndex = 16
Top = 630
Width = 1590
End
Begin VB.CommandButton cmdMethod2
Caption = "Method 2"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2250
TabIndex = 14
ToolTipText = "Involve many APIs and DCs, via transparent bitmap"
Top = 4830
Width = 1020
End
Begin VB.PictureBox picReverseMaskedFgd
AutoRedraw = -1 'True
Height = 1545
Left = 4650
ScaleHeight = 99
ScaleMode = 3 'Pixel
ScaleWidth = 104
TabIndex = 5
Top = 2910
Width = 1620
End
Begin VB.CommandButton cmdMethod1
Caption = "Method 1"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1200
TabIndex = 4
ToolTipText = "Use only one API, via reverse masked foreground"
Top = 4830
Width = 1020
End
Begin VB.PictureBox picProduct
AutoRedraw = -1 'True
Height = 1575
Left = 4710
ScaleHeight = 101
ScaleMode = 3 'Pixel
ScaleWidth = 102
TabIndex = 3
Top = 630
Width = 1590
End
Begin VB.PictureBox picReversedMask
AutoRedraw = -1 'True
Height = 1515
Left = 2520
ScaleHeight = 97
ScaleMode = 3 'Pixel
ScaleWidth = 98
TabIndex = 2
Top = 2910
Width = 1530
End
Begin VB.PictureBox picMask
AutoRedraw = -1 'True
Height = 1575
Left = 270
ScaleHeight = 101
ScaleMode = 3 'Pixel
ScaleWidth = 102
TabIndex = 1
Top = 2880
Width = 1590
End
Begin VB.PictureBox picBackgd
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 1650
Left = 270
Picture = "picmask.frx":7FFC
ScaleHeight = 106
ScaleMode = 3 'Pixel
ScaleWidth = 102
TabIndex = 0
Top = 630
Width = 1590
End
Begin VB.PictureBox picUnblockedFgd
AutoRedraw = -1 'True
Height = 1545
Left = 2520
ScaleHeight = 99
ScaleMode = 3 'Pixel
ScaleWidth = 99
TabIndex = 15
Top = 2910
Width = 1545
End
Begin VB.Label lblEqual
Caption = "="
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 4290
TabIndex = 13
Top = 1170
Width = 225
End
Begin VB.Label lblPlus
Caption = "+"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2040
TabIndex = 12
Top = 1200
Width = 225
End
Begin VB.Label lblEndResult
Alignment = 2 'Center
Caption = "Product"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4860
TabIndex = 11
Top = 240
Width = 1380
End
Begin VB.Label lblReversedMask
Alignment = 2 'Center
Caption = "Reversed mask"
Height = 375
Left = 2670
TabIndex = 10
Top = 2460
Width = 1230
End
Begin VB.Label lblReverseMaskedFgd
Alignment = 2 'Center
Caption = "Reverse-masked foreground"
Height = 405
Left = 4800
TabIndex = 9
Top = 2460
Width = 1350
End
Begin VB.Label lblBackGround
Alignment = 2 'Center
Caption = "Background"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethroug